home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / INKEY.INC < prev    next >
Text File  |  1985-02-23  |  314b  |  16 lines
  1. type
  2.   regpack      = record
  3.                    ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
  4.                  end;
  5.   ctype        = char;
  6. Var
  7.   R                             : regpack;
  8.   a,ch : char;
  9.  
  10. function inkey : ctype;
  11. begin
  12.   r.ax := $7 shl 8;
  13.   msdos(R);
  14.   inkey := chr((r.ax) and 255);
  15. end;
  16.